10 ' Проверка кратности
20 CLS
30 INPUT "N ="; N
40 IF N < 10 OR N > 99 OR N <> FIX(N) THEN GOTO 30
50 IF N MOD 12 = 0 THEN PRINT N; "кратно 12"
60 IF N MOD 12 <> 0 THEN PRINT N; "не кратно 12"
70 END